home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / SQUALK EXAMPLE PROGRAM.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  28 lines
  1. 0  REM *********************
  2. 1  REM *                   *
  3. 2  REM *  SQUALK ROUTINE   *
  4. 3  REM * EXAMPLE PROGRAM   *
  5. 4  REM *                   *
  6. 5  REM *********************
  7. 6  REM NS=NUMBER OF SOUNDS, AS(X)=ADDRESS OF SOUND X
  8. 10  HIMEM: 29183: REM FOR SOUNDSET AT NORMAL LOAD LOCATION
  9. 15  PRINT  CHR$(4);"BLOAD AUDIO OPCODES"
  10. 20  PRINT  CHR$(4);"BLOAD DEMOSOUNDS": REM INCLUDES A SOUNDSET
  11. 22  REM  USE ARRAY "AS" FOR SOUND ADRESSES
  12. 25  DIM AS(30): REM  30 IS (MUST BE) GREATER THAN NUMBER OF SOUNDS IN SOUNDSET
  13. 27 :
  14. 28 :
  15. 29  REM  CALCULATE ADDRESSES OF SOUNDS IN THE SOUNDSET
  16. 30 NS = 1: REM START WITH FIRST SOUND
  17. 31 AS(1) = 29184: REM NORMAL LOCATION OF FIRST SOUND
  18. 35 AS(NS +1) = 1 +AS(NS) + PEEK(AS(NS)): IF  PEEK(AS(NS +1)) < >0  THEN NS = NS +1: GOTO 35
  19. 36  REM   LINE 35 REPEATS UNTIL ADDRESSES OF ALL SOUNDS HAVE BEEN FOUND
  20. 37 :
  21. 38 :
  22. 45  FOR I = 1 TO NS:NR = 25:AD = AS(I): GOSUB 10002: NEXT I: REM  SQUALK ALL SOUNDS 25 TIMES EACH
  23. 46 :
  24. 47 :
  25. 50  END 
  26. 10000  REM ONLY AUDSUBS LINES 10002 AND 10008 ARE NEEDED FOR SQUALK
  27. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN : REM  CALL SQUALK
  28. 10008 PH =  INT(AD/256):PL = AD -256 *PH: RETURN : REM  CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)